-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2740
-- card count: 633
-- first card id: 5567
-- list block id: 166945
-- print block id: 2251
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 144192 bytes
-- stack block size: 6144 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x0000220000002200
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0xCC003300CC003300
-- patterns[4]: 0xCC883322CC883322
-- patterns[5]: 0xEE88BB22EE88BB22
-- patterns[6]: 0xEECCBB33EECCBB33
-- patterns[7]: 0xFFCCFF33FFCCFF33
-- patterns[8]: 0xFFEEFFBBFFEEFFBB
-- patterns[9]: 0xFFFFFFBBFFFFFFBB
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
–– Solutions
–– version 1.3 –– February 22,1989
–– Copyright Apple Computer, Inc. 1988 - 1989
–– Original Version by HyperPro
–– Current Revision by Eli Cochran
–– lineClicked & scrollLineClicked functions by Robin Shank

–– XCMDs:
–– printOut (by Gary Bond, copyright Apple Computer, Inc. 1988 - 1989)

–– HANDLERS: simpleFind, returnkey, openStack

on simpleFind
  lock screen
  global findWhat
  put 0 into counter
  go next card
  find findWhat
  if the result is not empty then
    go back
    exit simpleFind
  end if
  if the number of this card is 1 then
    add 1 to counter
    if counter > 2 then
      go to startCard
      put empty into findWhat
      exit simpleFind
    end if
    simpleFind findWhat
  end if
end simpleFind

on returnKey
  if the CommandKey is not "down" then simpleFind
  else pass returnKey
end returnKey

on openStack
  push recent card
  pop card into whereIcameFrom
  if the version < 1.2 then
    answer "Must have version 1.2 to run this stack."
    go whereIcameFrom
  end if
end openStack

on domenu menu                       --// Added by Medior, Inc. 12/6/90
  global RPStackName
  if menu is in "Home,Quit HyperCard" and RPStackName is not "" then
    set cursor to watch
    put RPStackName into shortname
    repeat until offset(":",shortname) = 0
      delete char 1 to offset(":",shortname) of shortname
    end repeat
    delete last char of shortname
    answer "This will return to "&shortname&"." with "Cancel" or "OK"
    if it is "Cancel" then exit domenu
    set cursor to watch
    lock screen
    go RPStackName
    unlock screen with dissolve
    exit domenu
  else pass doMenu
end domenu